define Massiv:integer[20];
define K:integer;

procedure Upor
param Size:byte;
define I:integer;
define J:integer;
define K:integer;
define Tmp:integer;
 begin
 for I=1 to Size do
  begin
   PrintS("Введите M[")
   PrintW(I)
   PrintS("]: ")
   Massiv[I]=Con
  end
 for J=1 to Size do
  for K=1 to Size-1 do
   begin
    if Massiv[K]>Massiv[K+1] then
     begin
      Tmp=Massiv[k]
      Massiv[K]=Massiv[K+1]
      Massiv[K+1]=Tmp
     end
   end
 prints ("Упорядоченный массив:"L)
 for I=1 to Size do
  begin
   PrintS("M[")
   PrintI(I)
   PrintS("]=")
   PrintI(Massiv[I])
   PrintS(""L)
  end
 end
begin
 Prints("Введите размер массива (1-20):")
 K=CON
 Call Upor(K)

end.